home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue57 / DragDrop / DragImage2U.dfm / DragImage2U.txt
Encoding:
Text File  |  2000-03-23  |  1.2 KB  |  64 lines
  1. object Form1: TForm1
  2.   Left = 194
  3.   Top = 112
  4.   BorderIcons = [biSystemMenu, biMinimize]
  5.   BorderStyle = bsSingle
  6.   Caption = 'Drag Objects'
  7.   ClientHeight = 169
  8.   ClientWidth = 297
  9.   Font.Color = clWindowText
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   OnCreate = FormCreate
  14.   PixelsPerInch = 96
  15.   TextHeight = 13
  16.   object Label1: TLabel
  17.     Left = 8
  18.     Top = 16
  19.     Width = 75
  20.     Height = 13
  21.     Caption = 'Hello World'
  22.     DragMode = dmAutomatic
  23.     Font.Color = clWindowText
  24.     Font.Height = -11
  25.     Font.Name = 'Verdana'
  26.     Font.Style = [fsBold]
  27.     ParentFont = False
  28.     OnEndDrag = SharedEndDrag
  29.     OnStartDrag = Label1StartDrag
  30.   end
  31.   object Panel1: TPanel
  32.     Left = 136
  33.     Top = 8
  34.     Width = 153
  35.     Height = 153
  36.     TabOrder = 0
  37.     OnDragDrop = Panel1DragDrop
  38.     OnDragOver = Panel1DragOver
  39.   end
  40.   object ListBox1: TListBox
  41.     Left = 8
  42.     Top = 40
  43.     Width = 121
  44.     Height = 121
  45.     DragMode = dmAutomatic
  46.     IntegralHeight = True
  47.     ItemHeight = 13
  48.     Items.Strings = (
  49.       'One'
  50.       'Two'
  51.       'Three'
  52.       'Four'
  53.       'Five'
  54.       'Six'
  55.       'Seven'
  56.       'Eight'
  57.       'Nine'
  58.       'Ten')
  59.     TabOrder = 1
  60.     OnEndDrag = SharedEndDrag
  61.     OnStartDrag = ListBox1StartDrag
  62.   end
  63. end
  64.